home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / T-COMAL Today / (k)t4.d64 / logical'ops.func < prev    next >
Text File  |  2007-02-28  |  836b  |  35 lines
  1. 9000 // DELETE "0:LOGICAL'OPS.FUNC"
  2. 9010 //  BY ├APTAIN ├OMAL AND FRIENDS
  3. 9020 // LIST   "0:LOGICAL'OPS.FUNC"
  4. 9030 //  UPDATED VERSION
  5. 9040 FUNC LOGICAL'SET'UP(NUM,MASK,OP) CLOSED
  6. 9050 //>>>>> WORKS WITH DISK'GET <<<<<
  7. 9060 // SET UP MACHINE CODE TO RESIDE
  8. 9070 // BETWEEN THE SCREEN AND THE
  9. 9080 // SPRITE POINTERS.
  10. 9090 //
  11. 9100 POKE 2045,169
  12. 9110 POKE 2046,NUM
  13. 9120 POKE 2047,OP
  14. 9130 POKE 2048,MASK
  15. 9140 POKE 2049,141
  16. 9150 POKE 2050,232
  17. 9160 POKE 2051,7
  18. 9170 POKE 2052,96
  19. 9180 SYS 2045
  20. 9190 RETURN PEEK(2024)
  21. 9200 ENDFUNC LOGICAL'SET'UP
  22. 9210 //
  23. 9220 FUNC LAND(NUM,MASK) CLOSED
  24. 9230 RETURN LOGICAL'SET'UP(NUM,MASK,41)
  25. 9240 ENDFUNC LAND
  26. 9250 //
  27. 9260 FUNC LOR(NUM,MASK) CLOSED
  28. 9270 RETURN LOGICAL'SET'UP(NUM,MASK,9)
  29. 9280 ENDFUNC LOR
  30. 9290 //
  31. 9300 FUNC XOR(NUM,MASK) CLOSED
  32. 9310 RETURN LOGICAL'SET'UP(NUM,MASK,73)
  33. 9320 ENDFUNC XOR
  34. 9330 //
  35.